/ Software of the Month Club 1999 November / SOTMC_Nov1999-Ultimate.iso / mac / REALbasic ƒ / Examples / Techniques / h&vTabclass ƒ / hvTabClass

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 05 43 6c 61 73 73 0a 68 | 76 54 61 62 43 6c 61 73 |.Class.h|vTabClas|
|00000010| 73 07 31 b1 09 88 07 07 | 00 0a 68 76 54 61 62 43 |s.1.....|..hvTabC|
|00000020| 6c 61 73 73 bc 01 06 43 | 61 6e 76 61 73 00 07 0d |lass...C|anvas...|
|00000030| 74 62 20 61 73 20 69 6e | 74 65 67 65 72 00 0d 74 |tb as in|teger..t|
|00000040| 68 20 61 73 20 69 6e 74 | 65 67 65 72 00 11 63 75 |h as int|eger..cu|
|00000050| 72 74 61 62 20 61 73 20 | 69 6e 74 65 67 65 72 00 |rtab as |integer.|
|00000060| 11 6d 61 78 74 61 62 20 | 61 73 20 69 6e 74 65 67 |.maxtab |as integ|
|00000070| 65 72 00 0e 6f 66 66 20 | 61 73 20 69 6e 74 65 67 |er..off |as integ|
|00000080| 65 72 00 0f 57 73 69 64 | 65 20 61 73 20 73 74 72 |er..Wsid|e as str|
|00000090| 69 6e 67 00 11 6f 6c 64 | 74 61 62 20 61 73 20 69 |ing..old|tab as i|
|000000a0| 6e 74 65 67 65 72 00 01 | 07 64 72 61 77 74 61 62 |nteger..|.drawtab|
|000000b0| 0e 6e 75 6d 20 61 73 20 | 69 6e 74 65 67 65 72 00 |.num as |integer.|
|000000c0| 00 95 01 20 95 01 20 9d | 01 1b 53 75 62 20 64 72 |... .. .|..Sub dr|
|000000d0| 61 77 74 61 62 28 6e 75 | 6d 20 61 73 20 69 6e 74 |awtab(nu|m as int|
|000000e0| 65 67 65 72 29 12 64 69 | 6d 20 74 65 6c 20 61 73 |eger).di|m tel as|
|000000f0| 20 69 6e 74 65 67 65 72 | 00 15 69 66 20 57 73 69 | integer|..if Wsi|
|00000100| 64 65 20 3d 20 22 74 6f | 70 22 20 74 68 65 6e 00 |de = "to|p" then.|
|00000110| 29 66 6f 72 20 74 65 6c | 20 3d 20 31 20 74 6f 20 |)for tel| = 1 to |
|00000120| 6d 61 78 74 61 62 20 20 | 20 2f 2f 2f 20 64 69 73 |maxtab  | /// dis|
|00000130| 61 62 6c 65 64 20 74 61 | 62 73 30 67 72 61 70 68 |abled ta|bs0graph|
|00000140| 69 63 73 2e 63 6c 65 61 | 72 72 65 63 74 20 28 74 |ics.clea|rrect (t|
|00000150| 65 6c 2a 74 62 29 2d 74 | 62 2b 6f 66 66 2c 30 2c |el*tb)-t|b+off,0,|
|00000160| 20 28 74 62 29 2b 6f 66 | 66 2c 32 31 67 72 61 70 | (tb)+of|f,21grap|
|00000170| 68 69 63 73 2e 66 6f 72 | 65 63 6f 6c 6f 72 20 3d |hics.for|ecolor =|
|00000180| 20 72 67 62 28 35 30 2c | 35 30 2c 35 30 29 20 2f | rgb(50,|50,50) /|
|00000190| 2f 62 75 69 74 65 6e 6c | 69 6a 6e 65 6e 3e 67 72 |/buitenl|ijnen>gr|
|000001a0| 61 70 68 69 63 73 2e 64 | 72 61 77 6c 69 6e 65 20 |aphics.d|rawline |
|000001b0| 20 28 74 65 6c 2a 74 62 | 29 2d 74 62 2b 31 2b 6f | (tel*tb|)-tb+1+o|
|000001c0| 66 66 2c 31 2c 74 65 6c | 2a 74 62 2d 31 2b 6f 66 |ff,1,tel|*tb-1+of|
|000001d0| 66 2c 31 20 2f 2f 20 62 | 6f 76 65 6e 3e 67 72 61 |f,1 // b|oven>gra|
|000001e0| 70 68 69 63 73 2e 64 72 | 61 77 6c 69 6e 65 20 20 |phics.dr|awline  |
|000001f0| 28 74 65 6c 2a 74 62 29 | 2d 74 62 2b 6f 66 66 2c |(tel*tb)|-tb+off,|
|00000200| 32 2c 28 74 65 6c 2a 74 | 62 29 2d 74 62 2b 6f 66 |2,(tel*t|b)-tb+of|
|00000210| 66 2c 74 68 2f 2f 6c 69 | 6e 6b 73 3a 67 72 61 70 |f,th//li|nks:grap|
|00000220| 68 69 63 73 2e 64 72 61 | 77 6c 69 6e 65 20 20 28 |hics.dra|wline  (|
|00000230| 74 65 6c 2a 74 62 29 2b | 6f 66 66 2c 32 2c 28 74 |tel*tb)+|off,2,(t|
|00000240| 65 6c 2a 74 62 29 2b 6f | 66 66 2c 74 68 20 2f 2f |el*tb)+o|ff,th //|
|00000250| 72 65 63 68 74 73 00 35 | 67 72 61 70 68 69 63 73 |rechts.5|graphics|
|00000260| 2e 66 6f 72 65 63 6f 6c | 6f 72 20 3d 20 72 67 62 |.forecol|or = rgb|
|00000270| 28 32 35 35 2c 32 35 35 | 2c 32 35 35 29 20 20 2f |(255,255|,255)  /|
|00000280| 2f 62 69 6e 6e 65 6e 6c | 69 6a 6e 65 6e 3e 67 72 |/binnenl|ijnen>gr|
|00000290| 61 70 68 69 63 73 2e 64 | 72 61 77 6c 69 6e 65 20 |aphics.d|rawline |
|000002a0| 20 28 74 65 6c 2a 74 62 | 29 2d 74 62 2b 32 2b 6f | (tel*tb|)-tb+2+o|
|000002b0| 66 66 2c 32 2c 74 65 6c | 2a 74 62 2d 32 2b 6f 66 |ff,2,tel|*tb-2+of|
|000002c0| 66 2c 32 20 2f 2f 20 62 | 6f 76 65 6e 82 01 67 72 |f,2 // b|oven..gr|
|000002d0| 61 70 68 69 63 73 2e 64 | 72 61 77 6c 69 6e 65 20 |aphics.d|rawline |
|000002e0| 20 28 74 65 6c 2a 74 62 | 29 2d 74 62 2b 31 2b 6f | (tel*tb|)-tb+1+o|
|000002f0| 66 66 2c 33 2c 28 74 65 | 6c 2a 74 62 29 2d 74 62 |ff,3,(te|l*tb)-tb|
|00000300| 2b 31 2b 6f 66 66 2c 74 | 68 2f 2f 6c 69 6e 6b 73 |+1+off,t|h//links|
|00000310| 25 67 72 61 70 68 69 63 | 73 2e 66 6f 72 65 63 6f |%graphic|s.foreco|
|00000320| 6c 6f 72 20 3d 20 72 67 | 62 28 31 38 30 2c 31 38 |lor = rg|b(180,18|
|00000330| 30 2c 31 38 30 29 3d 67 | 72 61 70 68 69 63 73 2e |0,180)=g|raphics.|
|00000340| 64 72 61 77 6c 69 6e 65 | 20 20 28 74 65 6c 2a 74 |drawline|  (tel*t|
|00000350| 62 29 2d 31 2b 6f 66 66 | 2c 33 2c 28 74 65 6c 2a |b)-1+off|,3,(tel*|
|00000360| 74 62 29 2d 31 2b 6f 66 | 66 2c 74 68 20 2f 2f 72 |tb)-1+of|f,th //r|
|00000370| 65 63 68 74 04 6e 65 78 | 74 00 2e 67 72 61 70 68 |echt.nex|t..graph|
|00000380| 69 63 73 2e 66 6f 72 65 | 63 6f 6c 6f 72 20 3d 20 |ics.fore|color = |
|00000390| 72 67 62 28 30 2c 30 2c | 30 29 20 2f 2f 6f 6d 74 |rgb(0,0,|0) //omt|
|000003a0| 72 65 6b 6c 69 6a 6e 65 | 6e 26 67 72 61 70 68 69 |reklijne|n&graphi|
|000003b0| 63 73 2e 64 72 61 77 6c | 69 6e 65 20 30 2c 74 68 |cs.drawl|ine 0,th|
|000003c0| 2c 30 2c 68 65 69 67 68 | 74 20 2f 2f 6c 65 66 74 |,0,heigh|t //left|
|000003d0| 34 67 72 61 70 68 69 63 | 73 2e 64 72 61 77 6c 69 |4graphic|s.drawli|
|000003e0| 6e 65 20 30 2c 68 65 69 | 67 68 74 2d 31 2c 77 69 |ne 0,hei|ght-1,wi|
|000003f0| 64 74 68 2d 31 2c 68 65 | 69 67 68 74 2d 31 2f 2f |dth-1,he|ight-1//|
|00000400| 75 6e 64 65 72 33 67 72 | 61 70 68 69 63 73 2e 64 |under3gr|aphics.d|
|00000410| 72 61 77 6c 69 6e 65 20 | 77 69 64 74 68 2d 31 2c |rawline |width-1,|
|00000420| 74 68 2c 77 69 64 74 68 | 2d 31 2c 68 65 69 67 68 |th,width|-1,heigh|
|00000430| 74 20 2f 2f 72 69 67 68 | 74 3a 67 72 61 70 68 69 |t //righ|t:graphi|
|00000440| 63 73 2e 64 72 61 77 6c | 69 6e 65 20 30 2c 74 68 |cs.drawl|ine 0,th|
|00000450| 2c 28 6e 75 6d 2a 74 62 | 29 2d 74 62 2b 6f 66 66 |,(num*tb|)-tb+off|
|00000460| 2c 74 68 20 2f 2f 75 6e | 64 65 72 6c 65 66 74 20 |,th //un|derleft |
|00000470| 74 61 62 73 3c 67 72 61 | 70 68 69 63 73 2e 64 72 |tabs<gra|phics.dr|
|00000480| 61 77 6c 69 6e 65 20 28 | 6e 75 6d 2a 74 62 29 2b |awline (|num*tb)+|
|00000490| 6f 66 66 2c 74 68 2c 77 | 69 64 74 68 2c 74 68 20 |off,th,w|idth,th |
|000004a0| 2f 2f 75 6e 64 65 72 72 | 69 67 68 74 20 74 61 62 |//underr|ight tab|
|000004b0| 73 00 3a 67 72 61 70 68 | 69 63 73 2e 66 6f 72 65 |s.:graph|ics.fore|
|000004c0| 63 6f 6c 6f 72 20 3d 20 | 72 67 62 28 32 35 35 2c |color = |rgb(255,|
|000004d0| 32 35 35 2c 32 35 35 29 | 20 2f 2f 6f 6d 74 72 65 |255,255)| //omtre|
|000004e0| 6b 6c 69 6a 6e 65 6e 20 | 62 65 76 65 6c 2a 67 72 |klijnen |bevel*gr|
|000004f0| 61 70 68 69 63 73 2e 64 | 72 61 77 6c 69 6e 65 20 |aphics.d|rawline |
|00000500| 31 2c 74 68 2b 32 2c 31 | 2c 68 65 69 67 68 74 2d |1,th+2,1|,height-|
|00000510| 32 20 2f 2f 6c 65 66 74 | 80 01 67 72 61 70 68 69 |2 //left|..graphi|
|00000520| 63 73 2e 64 72 61 77 6c | 69 6e 65 20 31 2c 74 68 |cs.drawl|ine 1,th|
|00000530| 2b 31 2c 28 6e 75 6d 2a | 74 62 29 2d 74 62 2b 31 |+1,(num*|tb)-tb+1|
|00000540| 2b 6f 66 66 2c 74 68 2b | 31 20 2f 2f 75 6e 64 65 |+off,th+|1 //unde|
|00000550| 72 6c 65 66 74 20 74 61 | 62 73 82 01 67 72 61 70 |rleft ta|bs..grap|
|00000560| 68 69 63 73 2e 64 72 61 | 77 6c 69 6e 65 20 28 6e |hics.dra|wline (n|
|00000570| 75 6d 2a 74 62 29 2b 6f | 66 66 2c 74 68 2b 31 2c |um*tb)+o|ff,th+1,|
|00000580| 77 69 64 74 68 2d 32 2c | 74 68 20 2b 31 2f 2f 75 |width-2,|th +1//u|
|00000590| 6e 64 65 72 72 69 67 68 | 74 20 74 61 62 73 25 67 |nderrigh|t tabs%g|
|000005a0| 72 61 70 68 69 63 73 2e | 66 6f 72 65 63 6f 6c 6f |raphics.|forecolo|
|000005b0| 72 20 3d 20 72 67 62 28 | 31 35 30 2c 31 35 30 2c |r = rgb(|150,150,|
|000005c0| 31 35 30 29 34 67 72 61 | 70 68 69 63 73 2e 64 72 |150)4gra|phics.dr|
|000005d0| 61 77 6c 69 6e 65 20 31 | 2c 68 65 69 67 68 74 2d |awline 1|,height-|
|000005e0| 32 2c 77 69 64 74 68 2d | 32 2c 68 65 69 67 68 74 |2,width-|2,height|
|000005f0| 2d 32 2f 2f 75 6e 64 65 | 72 36 67 72 61 70 68 69 |-2//unde|r6graphi|
|00000600| 63 73 2e 64 72 61 77 6c | 69 6e 65 20 77 69 64 74 |cs.drawl|ine widt|
|00000610| 68 2d 32 2c 74 68 2b 31 | 2c 77 69 64 74 68 2d 32 |h-2,th+1|,width-2|
|00000620| 2c 68 65 69 67 68 74 2d | 32 2f 2f 72 69 67 68 74 |,height-|2//right|
|00000630| 00 0f 2f 2f 63 75 72 74 | 61 62 20 28 6e 75 6d 29 |..//curt|ab (num)|
|00000640| 3a 32 67 72 61 70 68 69 | 63 73 2e 63 6c 65 61 72 |:2graphi|cs.clear|
|00000650| 72 65 63 74 20 28 6e 75 | 6d 2a 74 62 29 2d 74 62 |rect (nu|m*tb)-tb|
|00000660| 2b 31 2b 6f 66 66 2c 31 | 2c 28 74 62 29 2d 31 2c |+1+off,1|,(tb)-1,|
|00000670| 74 68 2b 31 33 67 72 61 | 70 68 69 63 73 2e 66 6f |th+13gra|phics.fo|
|00000680| 72 65 63 6f 6c 6f 72 20 | 3d 20 72 67 62 28 30 2c |recolor |= rgb(0,|
|00000690| 30 2c 30 29 20 2f 2f 74 | 61 62 73 20 62 75 69 74 |0,0) //t|abs buit|
|000006a0| 65 6e 6c 69 6a 6e 65 6e | 3e 67 72 61 70 68 69 63 |enlijnen|>graphic|
|000006b0| 73 2e 64 72 61 77 6c 69 | 6e 65 20 20 28 6e 75 6d |s.drawli|ne  (num|
|000006c0| 2a 74 62 29 2d 74 62 2b | 31 2b 6f 66 66 2c 30 2c |*tb)-tb+|1+off,0,|
|000006d0| 6e 75 6d 2a 74 62 2d 31 | 2b 6f 66 66 2c 30 20 2f |num*tb-1|+off,0 /|
|000006e0| 2f 20 62 6f 76 65 6e 3e | 67 72 61 70 68 69 63 73 |/ boven>|graphics|
|000006f0| 2e 64 72 61 77 6c 69 6e | 65 20 20 28 6e 75 6d 2a |.drawlin|e  (num*|
|00000700| 74 62 29 2d 74 62 2b 6f | 66 66 2c 31 2c 28 6e 75 |tb)-tb+o|ff,1,(nu|
|00000710| 6d 2a 74 62 29 2d 74 62 | 2b 6f 66 66 2c 74 68 2f |m*tb)-tb|+off,th/|
|00000720| 2f 6c 69 6e 6b 73 3a 67 | 72 61 70 68 69 63 73 2e |/links:g|raphics.|
|00000730| 64 72 61 77 6c 69 6e 65 | 20 20 28 6e 75 6d 2a 74 |drawline|  (num*t|
|00000740| 62 29 2b 6f 66 66 2c 31 | 2c 28 6e 75 6d 2a 74 62 |b)+off,1|,(num*tb|
|00000750| 29 2b 6f 66 66 2c 74 68 | 20 2f 2f 72 65 63 68 74 |)+off,th| //recht|
|00000760| 73 00 3b 67 72 61 70 68 | 69 63 73 2e 66 6f 72 65 |s.;graph|ics.fore|
|00000770| 63 6f 6c 6f 72 20 3d 20 | 72 67 62 28 32 35 35 2c |color = |rgb(255,|
|00000780| 32 35 35 2c 32 35 35 29 | 20 20 2f 2f 20 74 61 62 |255,255)|  // tab|
|00000790| 73 20 62 69 6e 6e 65 6e | 6c 69 6a 6e 65 6e 3e 67 |s binnen|lijnen>g|
|000007a0| 72 61 70 68 69 63 73 2e | 64 72 61 77 6c 69 6e 65 |raphics.|drawline|
|000007b0| 20 20 28 6e 75 6d 2a 74 | 62 29 2d 74 62 2b 32 2b |  (num*t|b)-tb+2+|
|000007c0| 6f 66 66 2c 31 2c 6e 75 | 6d 2a 74 62 2d 32 2b 6f |off,1,nu|m*tb-2+o|
|000007d0| 66 66 2c 31 20 2f 2f 20 | 62 6f 76 65 6e 82 01 67 |ff,1 // |boven..g|
|000007e0| 72 61 70 68 69 63 73 2e | 64 72 61 77 6c 69 6e 65 |raphics.|drawline|
|000007f0| 20 20 28 6e 75 6d 2a 74 | 62 29 2d 74 62 2b 31 2b |  (num*t|b)-tb+1+|
|00000800| 6f 66 66 2c 32 2c 28 6e | 75 6d 2a 74 62 29 2d 74 |off,2,(n|um*tb)-t|
|00000810| 62 2b 31 2b 6f 66 66 2c | 74 68 2f 2f 6c 69 6e 6b |b+1+off,|th//link|
|00000820| 73 25 67 72 61 70 68 69 | 63 73 2e 66 6f 72 65 63 |s%graphi|cs.forec|
|00000830| 6f 6c 6f 72 20 3d 20 72 | 67 62 28 31 35 30 2c 31 |olor = r|gb(150,1|
|00000840| 35 30 2c 31 35 30 29 3d | 67 72 61 70 68 69 63 73 |50,150)=|graphics|
|00000850| 2e 64 72 61 77 6c 69 6e | 65 20 20 28 6e 75 6d 2a |.drawlin|e  (num*|
|00000860| 74 62 29 2d 31 2b 6f 66 | 66 2c 32 2c 28 6e 75 6d |tb)-1+of|f,2,(num|
|00000870| 2a 74 62 29 2d 31 2b 6f | 66 66 2c 74 68 20 2f 2f |*tb)-1+o|ff,th //|
|00000880| 72 65 63 68 74 00 1a 65 | 6c 73 65 69 66 20 57 73 |recht..e|lseif Ws|
|00000890| 69 64 65 20 3d 20 22 6c | 65 66 74 22 20 74 68 65 |ide = "l|eft" the|
|000008a0| 6e 00 20 2f 2f 67 72 61 | 70 68 69 63 73 2e 63 6c |n. //gra|phics.cl|
|000008b0| 65 61 72 72 65 63 74 20 | 30 2c 30 2c 77 69 64 74 |earrect |0,0,widt|
|000008c0| 68 2c 32 29 66 6f 72 20 | 74 65 6c 20 3d 20 31 20 |h,2)for |tel = 1 |
|000008d0| 74 6f 20 6d 61 78 74 61 | 62 20 20 20 2f 2f 2f 20 |to maxta|b   /// |
|000008e0| 64 69 73 61 62 6c 65 64 | 20 74 61 62 73 33 67 72 |disabled| tabs3gr|
|000008f0| 61 70 68 69 63 73 2e 63 | 6c 65 61 72 72 65 63 74 |aphics.c|learrect|
|00000900| 20 30 2c 28 74 65 6c 2a | 74 68 29 2d 74 68 2b 6f | 0,(tel*|th)-th+o|
|00000910| 66 66 2c 32 2c 28 74 65 | 6c 2a 74 68 29 2b 6f 66 |ff,2,(te|l*th)+of|
|00000920| 66 31 67 72 61 70 68 69 | 63 73 2e 66 6f 72 65 63 |f1graphi|cs.forec|
|00000930| 6f 6c 6f 72 20 3d 20 72 | 67 62 28 35 30 2c 35 30 |olor = r|gb(50,50|
|00000940| 2c 35 30 29 20 2f 2f 62 | 75 69 74 65 6e 6c 69 6a |,50) //b|uitenlij|
|00000950| 6e 65 6e 80 01 67 72 61 | 70 68 69 63 73 2e 64 72 |nen..gra|phics.dr|
|00000960| 61 77 6c 69 6e 65 20 20 | 32 2c 28 74 65 6c 2a 74 |awline  |2,(tel*t|
|00000970| 68 29 2d 74 68 2b 6f 66 | 66 2c 74 62 2c 28 74 65 |h)-th+of|f,tb,(te|
|00000980| 6c 2a 74 68 29 2d 74 68 | 2b 6f 66 66 20 2f 2f 20 |l*th)-th|+off // |
|00000990| 62 6f 76 65 6e 3e 67 72 | 61 70 68 69 63 73 2e 64 |boven>gr|aphics.d|
|000009a0| 72 61 77 6c 69 6e 65 20 | 20 31 2c 28 74 65 6c 2a |rawline | 1,(tel*|
|000009b0| 74 68 29 2d 74 68 2b 31 | 2b 6f 66 66 2c 31 2c 28 |th)-th+1|+off,1,(|
|000009c0| 74 65 6c 2a 74 68 29 2d | 31 2b 6f 66 66 2f 2f 6c |tel*th)-|1+off//l|
|000009d0| 69 6e 6b 73 3a 67 72 61 | 70 68 69 63 73 2e 64 72 |inks:gra|phics.dr|
|000009e0| 61 77 6c 69 6e 65 20 20 | 32 2c 28 74 65 6c 2a 74 |awline  |2,(tel*t|
|000009f0| 68 29 2b 6f 66 66 2c 74 | 62 2c 28 74 65 6c 2a 74 |h)+off,t|b,(tel*t|
|00000a00| 68 29 2b 6f 66 66 20 2f | 2f 20 75 6e 64 65 72 00 |h)+off /|/ under.|
|00000a10| 35 67 72 61 70 68 69 63 | 73 2e 66 6f 72 65 63 6f |5graphic|s.foreco|
|00000a20| 6c 6f 72 20 3d 20 72 67 | 62 28 32 35 35 2c 32 35 |lor = rg|b(255,25|
|00000a30| 35 2c 32 35 35 29 20 20 | 2f 2f 62 69 6e 6e 65 6e |5,255)  |//binnen|
|00000a40| 6c 69 6a 6e 65 6e 84 01 | 67 72 61 70 68 69 63 73 |lijnen..|graphics|
|00000a50| 2e 64 72 61 77 6c 69 6e | 65 20 20 33 2c 28 74 65 |.drawlin|e  3,(te|
|00000a60| 6c 2a 74 68 29 2d 74 68 | 2b 31 2b 6f 66 66 2c 74 |l*th)-th|+1+off,t|
|00000a70| 62 2c 28 74 65 6c 2a 74 | 68 29 2d 74 68 2b 31 2b |b,(tel*t|h)-th+1+|
|00000a80| 6f 66 66 20 2f 2f 20 62 | 6f 76 65 6e a5 01 67 72 |off // b|oven..gr|
|00000a90| 61 70 68 69 63 73 2e 64 | 72 61 77 6c 69 6e 65 20 |aphics.d|rawline |
|00000aa0| 20 32 2c 28 74 65 6c 2a | 74 68 29 2d 74 68 2b 32 | 2,(tel*|th)-th+2|
|00000ab0| 2b 6f 66 66 2c 32 2c 28 | 74 65 6c 2a 74 68 29 2d |+off,2,(|tel*th)-|
|00000ac0| 32 2b 6f 66 66 2f 2f 6c | 69 6e 6b 73 2f 2f 67 72 |2+off//l|inks//gr|
|00000ad0| 61 70 68 69 63 73 2e 66 | 6f 72 65 63 6f 6c 6f 72 |aphics.f|orecolor|
|00000ae0| 20 3d 20 72 67 62 28 31 | 38 30 2c 31 38 30 2c 31 | = rgb(1|80,180,1|
|00000af0| 38 30 29 25 67 72 61 70 | 68 69 63 73 2e 66 6f 72 |80)%grap|hics.for|
|00000b00| 65 63 6f 6c 6f 72 20 3d | 20 72 67 62 28 31 38 30 |ecolor =| rgb(180|
|00000b10| 2c 31 38 30 2c 31 38 30 | 29 3e 67 72 61 70 68 69 |,180,180|)>graphi|
|00000b20| 63 73 2e 64 72 61 77 6c | 69 6e 65 20 20 33 2c 28 |cs.drawl|ine  3,(|
|00000b30| 74 65 6c 2a 74 68 29 2d | 31 2b 6f 66 66 2c 74 62 |tel*th)-|1+off,tb|
|00000b40| 2c 28 74 65 6c 2a 74 68 | 29 2d 31 2b 6f 66 66 20 |,(tel*th|)-1+off |
|00000b50| 2f 2f 20 75 6e 64 65 72 | 04 6e 65 78 74 09 2f 2f |// under|.next.//|
|00000b60| 63 75 72 74 61 62 62 2e | 67 72 61 70 68 69 63 73 |curtabb.|graphics|
|00000b70| 2e 63 6c 65 61 72 72 65 | 63 74 20 30 2c 28 6e 75 |.clearre|ct 0,(nu|
|00000b80| 6d 2a 74 68 29 2d 74 68 | 2b 6f 66 66 2c 74 62 2b |m*th)-th|+off,tb+|
|00000b90| 32 2c 28 74 68 29 33 67 | 72 61 70 68 69 63 73 2e |2,(th)3g|raphics.|
|00000ba0| 66 6f 72 65 63 6f 6c 6f | 72 20 3d 20 72 67 62 28 |forecolo|r = rgb(|
|00000bb0| 30 2c 30 2c 30 29 20 2f | 2f 74 61 62 73 20 62 75 |0,0,0) /|/tabs bu|
|00000bc0| 69 74 65 6e 6c 69 6a 6e | 65 6e 80 01 67 72 61 70 |itenlijn|en..grap|
|00000bd0| 68 69 63 73 2e 64 72 61 | 77 6c 69 6e 65 20 20 31 |hics.dra|wline  1|
|00000be0| 2c 28 6e 75 6d 2a 74 68 | 29 2d 74 68 2b 6f 66 66 |,(num*th|)-th+off|
|00000bf0| 2c 74 62 2c 28 6e 75 6d | 2a 74 68 29 2d 74 68 2b |,tb,(num|*th)-th+|
|00000c00| 6f 66 66 20 2f 2f 20 62 | 6f 76 65 6e 3e 67 72 61 |off // b|oven>gra|
|00000c10| 70 68 69 63 73 2e 64 72 | 61 77 6c 69 6e 65 20 20 |phics.dr|awline  |
|00000c20| 30 2c 28 6e 75 6d 2a 74 | 68 29 2d 74 68 2b 31 2b |0,(num*t|h)-th+1+|
|00000c30| 6f 66 66 2c 30 2c 28 6e | 75 6d 2a 74 68 29 2d 31 |off,0,(n|um*th)-1|
|00000c40| 2b 6f 66 66 2f 2f 6c 69 | 6e 6b 73 3a 67 72 61 70 |+off//li|nks:grap|
|00000c50| 68 69 63 73 2e 64 72 61 | 77 6c 69 6e 65 20 20 31 |hics.dra|wline  1|
|00000c60| 2c 28 6e 75 6d 2a 74 68 | 29 2b 6f 66 66 2c 74 62 |,(num*th|)+off,tb|
|00000c70| 2c 28 6e 75 6d 2a 74 68 | 29 2b 6f 66 66 20 2f 2f |,(num*th|)+off //|
|00000c80| 20 75 6e 64 65 72 00 3b | 67 72 61 70 68 69 63 73 | under.;|graphics|
|00000c90| 2e 66 6f 72 65 63 6f 6c | 6f 72 20 3d 20 72 67 62 |.forecol|or = rgb|
|00000ca0| 28 32 35 35 2c 32 35 35 | 2c 32 35 35 29 20 20 2f |(255,255|,255)  /|
|00000cb0| 2f 20 74 61 62 73 20 62 | 69 6e 6e 65 6e 6c 69 6a |/ tabs b|innenlij|
|00000cc0| 6e 65 6e 84 01 67 72 61 | 70 68 69 63 73 2e 64 72 |nen..gra|phics.dr|
|00000cd0| 61 77 6c 69 6e 65 20 20 | 31 2c 28 6e 75 6d 2a 74 |awline  |1,(num*t|
|00000ce0| 68 29 2d 74 68 2b 31 2b | 6f 66 66 2c 74 62 2c 28 |h)-th+1+|off,tb,(|
|00000cf0| 6e 75 6d 2a 74 68 29 2d | 74 68 2b 31 2b 6f 66 66 |num*th)-|th+1+off|
|00000d00| 20 2f 2f 20 62 6f 76 65 | 6e a5 01 67 72 61 70 68 | // bove|n..graph|
|00000d10| 69 63 73 2e 64 72 61 77 | 6c 69 6e 65 20 20 31 2c |ics.draw|line  1,|
|00000d20| 28 6e 75 6d 2a 74 68 29 | 2d 74 68 2b 32 2b 6f 66 |(num*th)|-th+2+of|
|00000d30| 66 2c 31 2c 28 6e 75 6d | 2a 74 68 29 2d 32 2b 6f |f,1,(num|*th)-2+o|
|00000d40| 66 66 2f 2f 6c 69 6e 6b | 73 2f 2f 67 72 61 70 68 |ff//link|s//graph|
|00000d50| 69 63 73 2e 66 6f 72 65 | 63 6f 6c 6f 72 20 3d 20 |ics.fore|color = |
|00000d60| 72 67 62 28 31 38 30 2c | 31 38 30 2c 31 38 30 29 |rgb(180,|180,180)|
|00000d70| 25 67 72 61 70 68 69 63 | 73 2e 66 6f 72 65 63 6f |%graphic|s.foreco|
|00000d80| 6c 6f 72 20 3d 20 72 67 | 62 28 31 32 30 2c 31 32 |lor = rg|b(120,12|
|00000d90| 30 2c 31 32 30 29 3e 67 | 72 61 70 68 69 63 73 2e |0,120)>g|raphics.|
|00000da0| 64 72 61 77 6c 69 6e 65 | 20 20 31 2c 28 6e 75 6d |drawline|  1,(num|
|00000db0| 2a 74 68 29 2d 31 2b 6f | 66 66 2c 74 62 2c 28 6e |*th)-1+o|ff,tb,(n|
|00000dc0| 75 6d 2a 74 68 29 2d 31 | 2b 6f 66 66 20 2f 2f 20 |um*th)-1|+off // |
|00000dd0| 75 6e 64 65 72 00 0e 2f | 2f 63 61 6e 76 61 73 20 |under../|/canvas |
|00000de0| 6c 69 6e 65 73 1f 67 72 | 61 70 68 69 63 73 2e 66 |lines.gr|aphics.f|
|00000df0| 6f 72 65 63 6f 6c 6f 72 | 20 3d 20 72 67 62 28 30 |orecolor| = rgb(0|
|00000e00| 2c 30 2c 30 29 24 67 72 | 61 70 68 69 63 73 2e 64 |,0,0)$gr|aphics.d|
|00000e10| 72 61 77 6c 69 6e 65 20 | 74 62 2c 30 2c 77 69 64 |rawline |tb,0,wid|
|00000e20| 74 68 2c 30 20 2f 2f 74 | 6f 70 33 67 72 61 70 68 |th,0 //t|op3graph|
|00000e30| 69 63 73 2e 64 72 61 77 | 6c 69 6e 65 20 77 69 64 |ics.draw|line wid|
|00000e40| 74 68 2d 31 2c 30 2c 77 | 69 64 74 68 2d 31 2c 68 |th-1,0,w|idth-1,h|
|00000e50| 65 69 67 68 74 2d 31 2f | 2f 72 69 67 68 74 35 67 |eight-1/|/right5g|
|00000e60| 72 61 70 68 69 63 73 2e | 64 72 61 77 6c 69 6e 65 |raphics.|drawline|
|00000e70| 20 74 62 2c 68 65 69 67 | 68 74 2d 31 2c 77 69 64 | tb,heig|ht-1,wid|
|00000e80| 74 68 2d 31 2c 68 65 69 | 67 68 74 2d 31 2f 2f 75 |th-1,hei|ght-1//u|
|00000e90| 6e 64 65 72 2d 67 72 61 | 70 68 69 63 73 2e 64 72 |nder-gra|phics.dr|
|00000ea0| 61 77 6c 69 6e 65 20 74 | 62 2c 30 2c 74 62 2c 6f |awline t|b,0,tb,o|
|00000eb0| 66 66 2b 28 6e 75 6d 2a | 74 68 29 2d 74 68 20 20 |ff+(num*|th)-th  |
|00000ec0| 2f 2f 2b 67 72 61 70 68 | 69 63 73 2e 64 72 61 77 |//+graph|ics.draw|
|00000ed0| 6c 69 6e 65 20 74 62 2c | 28 6e 75 6d 2a 74 68 29 |line tb,|(num*th)|
|00000ee0| 2b 6f 66 66 2c 74 62 2c | 68 65 69 67 68 74 00 3a |+off,tb,|height.:|
|00000ef0| 67 72 61 70 68 69 63 73 | 2e 66 6f 72 65 63 6f 6c |graphics|.forecol|
|00000f00| 6f 72 20 3d 20 72 67 62 | 28 32 35 35 2c 32 35 35 |or = rgb|(255,255|
|00000f10| 2c 32 35 35 29 20 2f 2f | 6f 6d 74 72 65 6b 6c 69 |,255) //|omtrekli|
|00000f20| 6a 6e 65 6e 20 62 65 76 | 65 6c 28 67 72 61 70 68 |jnen bev|el(graph|
|00000f30| 69 63 73 2e 64 72 61 77 | 6c 69 6e 65 20 74 62 2b |ics.draw|line tb+|
|00000f40| 31 2c 31 2c 77 69 64 74 | 68 2d 32 2c 31 20 2f 2f |1,1,widt|h-2,1 //|
|00000f50| 74 6f 70 31 67 72 61 70 | 68 69 63 73 2e 64 72 61 |top1grap|hics.dra|
|00000f60| 77 6c 69 6e 65 20 74 62 | 2b 31 2c 31 2c 74 62 2b |wline tb|+1,1,tb+|
|00000f70| 31 2c 6f 66 66 2b 28 6e | 75 6d 2a 74 68 29 2d 74 |1,off+(n|um*th)-t|
|00000f80| 68 20 20 2f 2f 31 67 72 | 61 70 68 69 63 73 2e 64 |h  //1gr|aphics.d|
|00000f90| 72 61 77 6c 69 6e 65 20 | 74 62 2b 31 2c 28 6e 75 |rawline |tb+1,(nu|
|00000fa0| 6d 2a 74 68 29 2b 6f 66 | 66 2c 74 62 2b 31 2c 68 |m*th)+of|f,tb+1,h|
|00000fb0| 65 69 67 68 74 2d 32 25 | 67 72 61 70 68 69 63 73 |eight-2%|graphics|
|00000fc0| 2e 66 6f 72 65 63 6f 6c | 6f 72 20 3d 20 72 67 62 |.forecol|or = rgb|
|00000fd0| 28 31 35 30 2c 31 35 30 | 2c 31 35 30 29 33 67 72 |(150,150|,150)3gr|
|00000fe0| 61 70 68 69 63 73 2e 64 | 72 61 77 6c 69 6e 65 20 |aphics.d|rawline |
|00000ff0| 77 69 64 74 68 2d 32 2c | 31 2c 77 69 64 74 68 2d |width-2,|1,width-|
|00001000| 32 2c 68 65 69 67 68 74 | 2d 32 2f 2f 72 69 67 68 |2,height|-2//righ|
|00001010| 74 37 67 72 61 70 68 69 | 63 73 2e 64 72 61 77 6c |t7graphi|cs.drawl|
|00001020| 69 6e 65 20 74 62 2b 31 | 2c 68 65 69 67 68 74 2d |ine tb+1|,height-|
|00001030| 32 2c 77 69 64 74 68 2d | 32 2c 68 65 69 67 68 74 |2,width-|2,height|
|00001040| 2d 32 2f 2f 75 6e 64 65 | 72 06 65 6e 64 20 69 66 |-2//unde|r.end if|
|00001050| 07 45 6e 64 20 53 75 62 | 01 06 63 68 61 6e 67 65 |.End Sub|..change|
|00001060| 0e 6e 75 6d 20 61 73 20 | 69 6e 74 65 67 65 72 00 |.num as |integer.|
|00001070| 08 09 4d 6f 75 73 65 45 | 78 69 74 01 00 01 00 09 |..MouseE|xit.....|
|00001080| 0f 53 75 62 20 4d 6f 75 | 73 65 45 78 69 74 28 29 |.Sub Mou|seExit()|
|00001090| 18 2f 2f 69 66 20 77 73 | 69 64 65 20 3d 20 22 6c |.//if ws|ide = "l|
|000010a0| 65 66 74 22 20 74 68 65 | 6e 0f 2f 2f 77 73 69 64 |eft" the|n.//wsid|
|000010b0| 65 20 3d 20 22 74 6f 70 | 22 06 2f 2f 65 6c 73 65 |e = "top|".//else|
|000010c0| 0f 2f 2f 77 73 69 64 65 | 20 3d 22 6c 65 66 74 22 |.//wside| ="left"|
|000010d0| 08 2f 2f 65 6e 64 20 69 | 66 11 2f 2f 64 72 61 77 |.//end i|f.//draw|
|000010e0| 74 61 62 28 63 75 72 74 | 61 62 29 09 2f 2f 72 65 |tab(curt|ab).//re|
|000010f0| 66 72 65 73 68 07 45 6e | 64 20 53 75 62 09 4d 6f |fresh.En|d Sub.Mo|
|00001100| 75 73 65 44 72 61 67 01 | 00 01 00 03 29 53 75 62 |useDrag.|....)Sub|
|00001110| 20 4d 6f 75 73 65 44 72 | 61 67 28 58 20 41 73 20 | MouseDr|ag(X As |
|00001120| 49 6e 74 65 67 65 72 2c | 20 59 20 41 73 20 49 6e |Integer,| Y As In|
|00001130| 74 65 67 65 72 29 00 07 | 45 6e 64 20 53 75 62 0a |teger)..|End Sub.|
|00001140| 44 72 6f 70 4f 62 6a 65 | 63 74 01 00 01 00 03 1f |DropObje|ct......|
|00001150| 53 75 62 20 44 72 6f 70 | 4f 62 6a 65 63 74 28 6f |Sub Drop|Object(o|
|00001160| 62 6a 20 41 73 20 44 72 | 61 67 49 74 65 6d 29 00 |bj As Dr|agItem).|
|00001170| 07 45 6e 64 20 53 75 62 | 05 43 6c 6f 73 65 01 00 |.End Sub|.Close..|
|00001180| 01 00 03 0b 53 75 62 20 | 43 6c 6f 73 65 28 29 00 |....Sub |Close().|
|00001190| 07 45 6e 64 20 53 75 62 | 04 4f 70 65 6e 07 07 07 |.End Sub|.Open...|
|000011a0| 07 0e 0a 53 75 62 20 4f | 70 65 6e 28 29 2a 2f 2f |...Sub O|pen()*//|
|000011b0| 20 59 6f 75 20 63 61 6e | 20 63 68 61 6e 67 65 20 | You can| change |
|000011c0| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 70 61 |the foll|owing pa|
|000011d0| 72 61 6d 65 74 65 72 73 | 2d 2f 2f 49 74 20 77 69 |rameters|-//It wi|
|000011e0| 6c 6c 20 70 72 6f 76 69 | 64 65 20 79 6f 75 72 20 |ll provi|de your |
|000011f0| 70 72 6f 6a 65 63 74 20 | 77 69 74 68 20 6d 6f 72 |project |with mor|
|00001200| 65 2c 6c 65 73 73 18 2f | 2f 73 6d 61 6c 6c 65 72 |e,less./|/smaller|
|00001210| 20 6f 72 20 62 69 67 67 | 65 72 20 74 61 62 73 00 | or bigg|er tabs.|
|00001220| 83 01 57 73 69 64 65 20 | 3d 20 22 6c 65 66 74 22 |..Wside |= "left"|
|00001230| 20 2f 2f 74 68 65 20 73 | 69 64 65 20 6f 6e 20 77 | //the s|ide on w|
|00001240| 68 69 63 68 20 74 68 65 | 20 74 61 62 73 20 61 70 |hich the| tabs ap|
|00001250| 70 65 61 72 28 22 6c 65 | 66 74 22 20 6f 72 20 22 |pear("le|ft" or "|
|00001260| 74 6f 70 22 29 29 6f 66 | 66 20 3d 20 31 35 20 20 |top"))of|f = 15  |
|00001270| 20 2f 2f 20 6f 66 66 73 | 65 74 20 66 72 6f 6d 20 | // offs|et from |
|00001280| 74 68 65 20 6c 65 66 74 | 20 6f 72 20 74 6f 70 18 |the left| or top.|
|00001290| 74 68 20 3d 20 33 30 20 | 20 20 20 20 2f 2f 74 61 |th = 30 |    //ta|
|000012a0| 62 20 68 65 69 67 68 74 | 17 74 62 20 3d 20 32 30 |b height|.tb = 20|
|000012b0| 20 20 20 20 20 2f 2f 74 | 61 62 20 77 69 64 74 68 |     //t|ab width|
|000012c0| 1b 6d 61 78 74 61 62 20 | 3d 33 20 20 2f 2f 6e 75 |.maxtab |=3  //nu|
|000012d0| 6d 62 65 72 20 6f 66 20 | 74 61 62 73 1a 63 75 72 |mber of |tabs.cur|
|000012e0| 74 61 62 20 3d 20 31 20 | 20 20 2f 2f 63 75 72 72 |tab = 1 |  //curr|
|000012f0| 65 6e 74 20 74 61 62 00 | 0f 64 72 61 77 74 61 62 |ent tab.|.drawtab|
|00001300| 28 63 75 72 74 61 62 29 | 07 45 6e 64 20 53 75 62 |(curtab)|.End Sub|
|00001310| 07 4d 6f 75 73 65 55 70 | 1b 06 1b 06 2a 27 53 75 |.MouseUp|....*'Su|
|00001320| 62 20 4d 6f 75 73 65 55 | 70 28 58 20 41 73 20 49 |b MouseU|p(X As I|
|00001330| 6e 74 65 67 65 72 2c 20 | 59 20 41 73 20 49 6e 74 |nteger, |Y As Int|
|00001340| 65 67 65 72 29 0f 64 69 | 6d 20 64 20 61 73 20 64 |eger).di|m d as d|
|00001350| 6f 75 62 6c 65 14 64 69 | 6d 20 74 61 62 6e 72 20 |ouble.di|m tabnr |
|00001360| 61 73 20 69 6e 74 65 67 | 65 72 00 15 69 66 20 57 |as integ|er..if W|
|00001370| 73 69 64 65 20 3d 20 22 | 74 6f 70 22 20 74 68 65 |side = "|top" the|
|00001380| 6e 0e 69 66 20 79 20 3c | 20 74 68 20 74 68 65 6e |n.if y <| th then|
|00001390| 0e 64 20 3d 20 28 78 2d | 6f 66 66 29 2f 74 62 0f |.d = (x-|off)/tb.|
|000013a0| 63 75 72 74 61 62 3d 20 | 63 65 69 6c 28 64 29 13 |curtab= |ceil(d).|
|000013b0| 2f 2f 6d 73 67 42 6f 78 | 20 73 74 72 28 74 61 62 |//msgBox| str(tab|
|000013c0| 6e 72 29 06 65 6e 64 20 | 69 66 82 01 69 66 20 64 |nr).end |if..if d|
|000013d0| 20 3d 20 6f 6c 64 74 61 | 62 20 74 68 65 6e 20 2f | = oldta|b then /|
|000013e0| 2f 74 70 20 70 72 65 76 | 65 6e 74 20 66 69 72 69 |/tp prev|ent firi|
|000013f0| 6e 67 20 65 76 65 6e 74 | 73 20 77 68 65 6e 20 6e |ng event|s when n|
|00001400| 6f 74 68 69 6e 67 20 63 | 68 61 6e 67 65 64 06 72 |othing c|hanged.r|
|00001410| 65 74 75 72 6e 06 65 6e | 64 20 69 66 00 0a 6f 6c |eturn.en|d if..ol|
|00001420| 64 74 61 62 20 3d 20 64 | 00 27 69 66 20 63 75 72 |dtab = d|.'if cur|
|00001430| 74 61 62 20 3e 20 30 20 | 61 6e 64 20 63 75 72 74 |tab > 0 |and curt|
|00001440| 61 62 20 3c 3d 20 6d 61 | 78 74 61 62 20 74 68 65 |ab <= ma|xtab the|
|00001450| 6e 0f 64 72 61 77 74 61 | 62 28 63 75 72 74 61 62 |n.drawta|b(curtab|
|00001460| 29 0d 63 68 61 6e 67 65 | 20 63 75 72 74 61 62 06 |).change| curtab.|
|00001470| 65 6e 64 20 69 66 00 1a | 65 6c 73 65 69 66 20 57 |end if..|elseif W|
|00001480| 73 69 64 65 20 3d 20 22 | 6c 65 66 74 22 20 74 68 |side = "|left" th|
|00001490| 65 6e 00 0e 69 66 20 78 | 20 3c 20 74 62 20 74 68 |en..if x| < tb th|
|000014a0| 65 6e 0e 64 20 3d 20 28 | 79 2d 6f 66 66 29 2f 74 |en.d = (|y-off)/t|
|000014b0| 68 0f 63 75 72 74 61 62 | 3d 20 63 65 69 6c 28 64 |h.curtab|= ceil(d|
|000014c0| 29 04 65 6c 73 65 06 72 | 65 74 75 72 6e 06 65 6e |).else.r|eturn.en|
|000014d0| 64 20 69 66 82 01 69 66 | 20 64 20 3d 20 6f 6c 64 |d if..if| d = old|
|000014e0| 74 61 62 20 74 68 65 6e | 20 2f 2f 74 70 20 70 72 |tab then| //tp pr|
|000014f0| 65 76 65 6e 74 20 66 69 | 72 69 6e 67 20 65 76 65 |event fi|ring eve|
|00001500| 6e 74 73 20 77 68 65 6e | 20 6e 6f 74 68 69 6e 67 |nts when| nothing|
|00001510| 20 63 68 61 6e 67 65 64 | 06 72 65 74 75 72 6e 06 | changed|.return.|
|00001520| 65 6e 64 20 69 66 00 27 | 69 66 20 63 75 72 74 61 |end if.'|if curta|
|00001530| 62 20 3e 20 30 20 61 6e | 64 20 63 75 72 74 61 62 |b > 0 an|d curtab|
|00001540| 20 3c 3d 20 6d 61 78 74 | 61 62 20 74 68 65 6e 0f | <= maxt|ab then.|
|00001550| 64 72 61 77 74 61 62 28 | 63 75 72 74 61 62 29 0d |drawtab(|curtab).|
|00001560| 63 68 61 6e 67 65 20 63 | 75 72 74 61 62 06 65 6e |change c|urtab.en|
|00001570| 64 20 69 66 00 00 06 65 | 6e 64 20 69 66 00 07 45 |d if...e|nd if..E|
|00001580| 6e 64 20 53 75 62 09 4d | 6f 75 73 65 44 6f 77 6e |nd Sub.M|ouseDown|
|00001590| 02 00 02 00 04 39 46 75 | 6e 63 74 69 6f 6e 20 4d |.....9Fu|nction M|
|000015a0| 6f 75 73 65 44 6f 77 6e | 28 58 20 41 73 20 49 6e |ouseDown|(X As In|
|000015b0| 74 65 67 65 72 2c 20 59 | 20 41 73 20 49 6e 74 65 |teger, Y| As Inte|
|000015c0| 67 65 72 29 20 41 73 20 | 42 6f 6f 6c 65 61 6e 0b |ger) As |Boolean.|
|000015d0| 72 65 74 75 72 6e 20 74 | 72 75 65 00 0c 45 6e 64 |return t|rue..End|
|000015e0| 20 46 75 6e 63 74 69 6f | 6e 05 50 61 69 6e 74 01 | Functio|n.Paint.|
|000015f0| 0e 01 0e 03 18 53 75 62 | 20 50 61 69 6e 74 28 67 |.....Sub| Paint(g|
|00001600| 20 41 73 20 47 72 61 70 | 68 69 63 73 29 0f 64 72 | As Grap|hics).dr|
|00001610| 61 77 74 61 62 28 63 75 | 72 74 61 62 29 07 45 6e |awtab(cu|rtab).En|
|00001620| 64 20 53 75 62 00 00 00 |                         |d Sub...|        |
+--------+-------------------------+-------------------------+--------+--------+